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LISP is a source language for writing algorithms, Unlike 
most other languages, in which a source program consists of 
a sequence of instructions to be executed in a certain 
order, a LISP program usually (hut not always) consists of a 
collection of function definitions 

The basic object in LISP Is a branching-tree type of 
structure called an S-ezpression. All function definitions, 
function arguments,, function values, programs, instructions* 
variables* constants, and data are S-expressions. At each 
node of an S-expression there are two branches The 
branches eventually terminate in atoms. An S-expresslon is 
thus defined recursively - it is either an atom or t^e 
concatenation of two S-exuressions,, 



lambda 



nil 




times 



nil 



fig, 1 - an S~expression 



In the Subexpression of figure i, lambda , x, nil, times . 

and 2. are atoms * The S-expresslon is the concatenation of 
the Subexpression lambda,, which 
c onca t ena t :l on 



,s an atom* v/ith another 



There is a notation for transmission of S-esqoressions 
between LISP and the outside world An atom is simply 
spelled outo A concatenation 3s written as a left parenthe- 
sis, the S-expression on the left side, a period, the s- 
expression on the right side, and a right parenthesis* The 
S-expression of figure 1 could be written 

( lambda o { (x,nil ) • ( (times (a. (x. (x.nil ) } ) ) «nil ) ) ) 



Almost all S-expressions that are commonly used have a 
chain of branches going off to the right, with the atom nil 
at the endo From each node an Subexpression hangs on the 
left*. Such an S-expression is called a listo 




rigc 3 -* a list 

There is a special notation for lists, consisting of a 
left parenthesis* the items of the list with spaces separa- 
ting them # and a right parenthesis. Using list notation, 
the Subexpression of figure 2 is written 

(a b x y 2) 

and that of figure 1 is written 

(lambda (x) (times 2 x x)) 

Either format is permissible for input In typing out S- 

expressions ? LISP uses list notation wherever possible « 

There are two types of atoms. lumbers consist of one or 
more digits, v/ith or without a minus sign* Atomic symbols 
contain at least one non-numeric character* 

The three most basic functions in LIS? are car, cdr 5 &n& 
cons* These three, along with over 50 others* exist as 
subroutines in the LXSP program* 

Given a nonatomic S-expression as an argument car finds 
the left half. Cdr finds the right half <> ~ 

car of (a e b) - a 
cdr of (a«b) = b 

Cons takes two arguments and concatenates them 

cons of a and b = (a.b) 

Note that the car of a list is its first element, and the 
cdr is the list of the remaining elements. The list of no 

©lenient s is the atomic symbol nil 

car of (a b c) « a 

cdr of (a b c) » (b c) 

cdr of (a) » nil 



The cons of an 5-expression and a list is the list with 
the S«-expression tacked onto the front, 

cons of a and (b c) = (a b c) 



LISP does arithmetic with the functions plus . minus, 
tfrfflQg * ISgQJT* logan^, logxor, q uotient , and remainder . The 
arguments of these functions must be numbers,, Plus , times , 
Ifigqr, logand, and logxor take any number of arguments and 
calculate the sum, product, bitwise inclusive or, bitwise 
and, and bitwise exclusive or of all of the arguments a 
JSiaus takes one argument and returns its negative (ones 
complement). Querent and remainder take two arguments and 
return the quotient and remainder of the integer division of 
the first by the second • 

LISP uses the atomic symbols t^ and nil to represent truth 
and falsehood, respectively* Decisions are made by func* 
tions called predicates* A predicate applies a test to its 
argument and returns Jt, or nil depending on the result* 

MW returns t_ if its argument is an atom (number or 
atomic symbol) and nil if it a concatenation* 

Numbers returns Jfc, only if its argument is a number. It 
returns . n i l if it is an atomic symbol or a concatenation* 

JSull returns t. if its argument is nil,, and returns nil 

otherwise* """""" *"" — 

£&uai takes two arguments and returns t if they have the 
same structure, i»e* if they would look alike if printed 
out* 

The argument of sero p must be a number* It returns t if 
that number is plus zero* ~" 

Greater p takes two numeric arguments and returns jt if the 
first is algebraically strictly greater than the second* 

predicates are usually used with cond . the decision 
making function* Cond takes an indefinite number of argu- 
ments, each of which is a list of two items - an antecedent 
and a consequent* The arguments are examined one at a time 
until an antecedent is found to be true* The value of the 
corresponding consequent is then returned • If all of the 
antecedents are false an error message is printed* The 
antecedent of the last argument is usually t to prevent 
this* """ 

Logical quantities are manipulated with the funcions and 
and o? a Each takes an indefinite number of logical argu- 
ments and returns £, if all of them or one of them, 
respectively, is true* There is no function named not, but 
JSull. may be used to negate logical quantities „ Remember 
that logand and l^gor are used with numerical quantities* 
and and or with logical ones* 



Atomic symbols have the property that they may "stand 
for" things o The thing for which an atomic symbol stands is 
called its value « It may be any Subexpression, atonic or 
otherwise* The value of an atom may be the atom itself, as 
is the case with jk.and pil_ o When an atom has a value, it is 
said to be bound to that value • Not all atoms are bound. 
The predicate yalp may be used to determine whether an 
atomic symbol has a value . 

The function seta is used to bind atomic symbols • The 
first argument is the symbol, the second is the value • Any 
previous value of the symbol is lost. Setq is an example of 
a pseudo-function.. It is used for its effect rather than 
its value* Pseudo-functions, like all other functions, must 
return values, but the value is usually ignored* Setq 
returns its second argument «, 

In LISP function calls are written as S~expressions, 
using a variation of Polish notation The S-expression used 
is a list containing the function as the first item and the 
arguments as the remaining items , Every function must 
therefore be able to be written as an S-expresslon* For 
this purpose, associated with each internal function in LISP 
is an atomic symbol with the same name* The value of the 
symbol is a number with an invisible flag giving the LISP 
program the information it needs to call the subroutine « 

Suppose, for example, that x stands for jl and .X stands 
f0 ** (.ft <*_) « a nd one wishes to take the cons of x and j^ 
obtaining (a b cL The atomic symbol cons, is usecT and the 
call is the S-expression (cons x y) . Mote that the* car of a 
function call is the function, and the cdr is the argument 
list* The procedure by which the S-expresslon (cons x y) is 
transformed into (a b c) is called evaluation,, and is the 
most important procedure in LISP* Evaluation of a number 
gets the number itself » Evaluation of an atomic symbol gets 
the symbol c s value Evaluation of a nonatomic S~expresslon 
(which must be a list) causes the arguments (in most cases) 
to be evaluated, and their values sent to the function » 
Whether the arguments of a function are evaluated or not is 
a property of the function o Except where otherwise speci- 
fied, all functions have their arguments evaluated,, 

Since the arguments of functions are evaluated, they may 
be other function calls, enabling functions to be nested 
within each other <> For example, to take the car of the cdr 
of the car of whatever j± is bound to, evaluate 

(car (cdr (car x))) 

If x evaluates to (1*3 h then 

(plus (minus (car x)) 5 (cdr x)) 

evaluates to 7* 

Evaluation may be stopped with the function quote quote 
takes one argument and returns it without evaluation « To 
find the cons of a. and (b cjk obtaining (a b c) s evaluate 



(cons (quote a) (quote (b c))) 

LISP will evaluate (quote a) to a, and (.Quote (b c)) to Jjb, c l 
before sending them to conso " EvaluaTlnstc^s a (t» cTT 
would cause the value of c_to be sent to the ftocHorTTTTirff 
the value of a concatenated with the result «, """' 

The function §%$& evaluates its second argument but not 
its first o To bind ^ to (a b c) a evaluate 

(setq x (quote (a b c))) 

*^njay be set to 1 more than its previous numerical value by 
evaluating 

(setq x (plus x l)) 



The funcion cond does not evaluate its arguments directly 
but evaluates the antecedents and consequents separately* 
The antecedent of each argument is evaluated until one is 
found to have a value of t,„ The consequent Is then 
evaluated « 

(cond ((atom x) (quote a)) (y (quote (a b))l 
(t (quote (a to c}})) 

evaluates to a if the value of x is atomic* or 

(a b) if the value of y is t^ or 
(a b c) othervJise o 

The third case works because £ ana nil are bound to 
themselves ~ " 

In addition to functions written as subroutines* func- 
tions may be written by the programmer* These functions are 
interpreted by LISP vjhsn they are called* A programed 
function is a list of three items , the first of which is 
usually the atomic symbol lambda «, ^-ambda is not a subrou- 
tine but a special symbol which LISP recognizes • It has no 
value « Like subroutines^ prcgi-'amnied functions are usually 
given names* and an atomic symbol of the same name is given 
a value of the function Functions defined with lambda are 
called expr's and always have their arguments evaluated « 

Suppose the symbol foo has a value of 

(lambda (x) (times 2 x x)) 

Lambda Identifies it as an expr, {x} is the dunnry symbol 
list, indicating that it takes one argument, and (times 3 x. 
x£ is the actual definition* This function takes one 
argument j squares it* nraltiplies by 2, and returns the 
result* 



(foo (plus 12)! evaluates to 
(foo ifoo i)) evaluates to 8 



18 




A predicate symbp to detect whether an Subexpression is en 
atomic symbol could be written as 

(lambda (x) (and (atom x) (null (numberp x)))), or as 

(lambda (y) (cond 

{numberp y) nil) 

(atom y) t) 
„t nil) 
)) 

This predicate, if defined, could be used exactly as one 
would use atom or number s* Programmed functions may call 
any functions , even themselves* 

A function fact to find the factorial of a number could 
be written as 

(lambda (x) (cond ((equal x ±) X 
(t (times x (fact (plus x -l) 

(fact 4) evaluates to £4 
(fact (fact 3)) evaluates to 720 

When LISP attempts to evaluate a function call* that is* 
a nonatomic 5 -express ion, it evaluates the function as many 
times as necessary (usually once) until a subroutine or a 
list beginning with lambda , nlarada . or label is found© If 
lambda is founds the arguments are evaluated and paired with 
the symbols on the dummy symbol list* Any old values of 
these symbols are saved, and the symbols are bound to the 
evaluated arguments o The definition is then evaluated and, 
after restoring the previous bindings of the dummy symbols, 
the value of the definition is returned as the value of the 
callo Example - suppose that the second definition of syrabp 
is used Find out whether^ is a symbol* ""* 

symbp evaluates to (lambda (y) (cond ((numberp y) nil) 

((atom y) t) (t nil)}) 
y evaluates to (l £ 3)«> This is its previous value 

from some unrelated calculation 
Evaluate (symbp (quote a)). 

The function symbp is evaluated to 

(lambda (y) (cond ( numberp y) nil) ((atom y) t) (t nil))) 

LISP recognizes this as an expr, so it evaluates each 
argument 
(quote a) is evaluated - its value is a 

The dummy symbol list is (y)* The old value of y, (1 2 3),o 
is saved o 

y is bound to the evaluated argument * 

y now evaluates to a e 

(cond ((numberp y) nil) ((atom y) t) (t nil)),, the 

definition of the function, is evaluatecU Cond, unlike most- 
functions, does not evaluate its arguments immediately, so 
the arguments sent to cond are 

((numberp y) nil), ((atom y) t), and (t nil)* 

(numberp y)» the first antecedent, is evaluated « 
Numberp evaluates its argument „ 



y Is evaluated, obtaining, a, which is sent to numberD* 
a is not a number, so nuraberp returns nil« 

cond goes to the next antecedent 

(atom y) is evaluated* 

y evaluates to a, which is an atom.* so atom returns t 9 

The second statement is true, so its consequent* t, Is 

evaluated • 
t is bound to itself, so the value of the call to cond 

is to 

y Is restored to (1 2 3), its old value, and t is returned 

as the value of (symbp (quote a))* 
Hence a is a symbol «, 

Functions like symbp and fact * being values of atomic 
symbols, are relatively permanent and may be used repeated- 
ly o When one ?ilshes to use a function only once, it is not 
necessary to give it a name and bind the atomic symbol of 
the same name to It* The function itself may be used. 
Hence 

((lambda (y) (cond ((numberp y) nil) ((atom y) t) 
(t nil})) (quote a)) 

may be used to determine that a Is a symbol o 

If a function Is recursive, however, It must be given a 
name so that it may use that name in calling itself c An 
attempt to calculate 4 factorial by evaluating 

((lambda (x) (cond ((equal x l) l) (t (times x (fact 
(plus x -l}))))) 4) 

would not work becaiise fact has no value,, 

((label fact (lambda (x) (cond ((eqtial x l) l) (t (times 
x (fact (plus x -l)))J))) 4) 

will work* Label is used to temporarily bind the atomic 
symbol fact to the definition of the factorial function., 

A list consisting of label » a symbol, and a function is 
equivalent to the function alone, except that the symbol Is 
temporarily bound to the function. The function can there- 
fore call Itself hy referring to the sr/mbol with which it is 
labelled o The previous value of the symbol Is restored when 
the function is finished * 

To write a function which does not have its arguments 
evaluated, use nlamda instead of lambda « Functions defined 
in this way are called fexpr^s* in addition to not 
evaluating their arguments, they also have a different way 
of binding arguments to the dummy symbol list* A fexpr may 
take any number of argument s« There must be exactly one 
symbol on the dummy symbol list* It will be bound to the 
list of all of the arguments* Functions which do not 
evaluate their arguments are usually used only on the top 
level for "utility™ purposes « Other functions do not, as a 
rule, call them, and they are not usually recursive,, 
Frindef j, dex, fix , trace , and untrace are examples of 



Internal functions which do not evaluate their arguments,, 

Expr E s may be conveniently defined by means of the 
pseudo-function dej^* £>§x takes three arguments and doss not 
evaluate them* The first is the name of the function to he 
defined^, the second is the dummy symbol list, and the third 
is the definition o 

(dex symbp (y) (cond ((numberp y) nil) 
{(atom y) t) (t nil))) 

evaluates to symbp and defines symbp to he the esspr 
described above o 

Programs In the usual sense may be written with the 
functions prog*, j£etin?n* and jg© JProg takes an indefinite 
number of arguments ana does noF ImmeTlfiateiy evaluate them* 
The first argument is the temporary variables list* The 
value of each symbol on this list is saved;, and each symbol 
is bound to ny^ These symbols may be used for temporary 
storage hy the program* and will have their original values 
restored upon exit* Of the remaining arguments, atomic 
symbols are interpreted as address tags and nonatoiaic 
expressions as instructions* The previous values of the 
tags are saved., and the tags are bound to pointers to the 
appropriate points In the program*, The instructions are 
then evaluated in sequence 9 and the values ignored* If the 
program runs out of instructions* j^y* is returned o If the 
function rejtggg. is called 9 its evaluated argument is re- 
turned as the * value of the program* In either case the 
temporary variables and address tags are restored The 
function go*, with an address tag as an argument, causes a 
transfer ox; control to the point indicated « ££g£? like 
other functions, may be nested* fiet^n, and _go^ always refer 
to the most recently entered j>rog# Program variables of 
nested progs are saved independently at each level D On the 
top level of a jjjrog^the rules for use of ce njji. are relaxed * 
X£ cppd runs out of propositions* rather than giving an 
error message it simply goes to the next statement of the 
program* 

A typical use of j>ro £_ is in the function reverse* which 
reverses a list* Reverse could be defined hy 

(dex reverse (x) (prog (y) 

z (cond ((null x| (return y))) 
setq y (cons (car x) j)} 
r setq x (cdr xj) 

!go 2) 
II 

This takes advantage of the facts that the program variable 
is initially bound to nil and that a cond may run out of 

propositions in a prog* 

LIS? keeps a symbol table similar to those used by 
debuggers and assemblers? containing an entry for each 
symbol s whether it has a value or not* This table initially 
contains 



one entry for each subroutine., with a name the same as 
that of the subroutine and a value of a number with 
the invisible flag subr or fsubr « 

t. and n£l * with values of themselves 

lambda , nlamda , label , subr * and fgubr, with no values* 
These are flags used "TnEernally by the LISP program* 

Whenever an atomic symbol not appearing in the table is 
read in* it is placed in the table with no value * It may 
later be given a value * 

The value of an atomic symbol is stored on the car of 
that symbol , Taking the car of an atomic symbol gets its 
value • it is illegal to take the car of a symbol with no 
value ^ and it is very dangerous to take the car of a number « 
The edr of a symbol is normally ni^'but any S-expression 
may be stored there by the programmer. 

$~expresslons which look alike may occupy different 
locations of memory „ Expressions may also be different but 
share common sub-expressions « Whenever an S~expression is 
read in, a fresh copy of it is created in memory, even if 
another copy already exists. Only atomic symbols are in 
unique locations * For example,, reading and evaluating 



(setq x (quote ((a»b) (c... r , 
(setq y (quote ((a.b) (c.d 

leaves memory looking like this - 




and 



3 y 




nil 



c d 



fig* 3 ~ non-identical S-expressions 

x and jr will both print out as (Ca„b) (ood)) « and will 
satisfy the predicate eojaal* but they will not be identical » 

Another predicate,*"* eg* may be used . to test for exact 
identity between two S-ezpressions * In the example above* 
{®Q x y} would evaluate to nilo If J^&n&jE &ad oeen bound 
by 

(setq x (quote {(a„b) (c,d)))) and 
(setq y x} 
they would be identical and would satisfy eq e 



Equal could have been written in terms of eq as 

(dex equal (x y) (cond 

{{and (numberp x) (numberp y)) (zerop (logxor x y))} 

\(or (numberp x) (numberp y)) nil) 
(and (atom x) (atom y)) (eo x y)) 

f (or (atom x) (atom yl) nilj 

(t (and (equal (car x) (car y)) (equal (cdr x) (cdr y)))) 
/' . i ' 

There are two S-expression modifying functions, r- olaca 
and r placd a each taking two arguments and evaluating"both. 
They replace the car and cdr . respectively, of the first 
argument with the second argument, and return the modified 
first argument* If JL an< ? JL are oound as in figure 3, 
(rplacd (car x) (quote qj) removes the dotted line in the 
rigure ana replaces it wit™ a pointer to the atomic symbol 
<!• it returns (a»qh its modified first argument. The 
value of j^ is now C(a,q) (c«d)h The value of y is not 
changed* If x nad heen bound Toy (seta y x). sofchat its 
value was identical with that of £, it too would have been 
changed o Since the car of an atomic symbol is its value, 
rp laca may be used to bind symbols, and r olacd may be used 
to store S-expressions on the cdr of a symbol • 

Other S-expressicn manipulating functions 

"Caar * cadr , cdar , and cddr are compositions of car and 
cdr * They could have been defined \>y 



|&ex caar (x) {car (car x, 

^dex cadr lx) (car (cdr x< 

k dex cdar (x| (cdr (car x, 

,dex cddr (x) (car (cdr x ( 

For example, the cadr of (a b c) is the car of the cdr of 
(a b c) > or J?* 

List takes (and evaluates) an indefinite number of 
arguments and returns the list of them* ^ist and cons are 
the two functions that are used to create complex S- 
expresslons out of small ones* 

(list i (cons (quote a) (quote b)) (plus 12 3)) 
evaluates to (1 (a*b) 6) 

App end takes two arguments, which must be lists, and 
appends thenu 

(append (quote (a b c)) (quote (d e f))) 
evaluates to (a b c d e f ) 

Aggend makes a copy of the first list in order to avoid 
mooifying ito Append could have "been defined hy 

(dex append (x y) (cond 
((null x) y) 
(t (cons (car x) (append (cdr x) y 



» 

M99flC is the same as app^nS. except that It does not copy 
its first argument but merely changes the nii at the end of 
the first list to the second list* In doing so the first 
list is permanently modified* Rconc could have been defined 
by — — 

(dex nconc (x y) (cond 
((null xj y) 
(t {prog (2) 
,setq z x) 

,cond ((null (null (cdr 2))) (go b)) 
>rplaed 2 y) 
, return x) 
setq s (cdr 2)) 
go a) 



Reverse takes one argument, which is a list, and reverses 
ito it could have been defined by 

(dex reverse (x) (prog (y) 

a (cond ((null x) (return y))) 

>setq y (cons (car x) y)) 

>setq x (cdr x)) 

£0 a) 

Subst takes three arguments and substitutes the first for 
all appearances, on all levels, of the second in the thirdo 
The third argument is not actually modified,, Subat could 
have heen defined by 

(dex, subst (x y z) (cond 
' '^equal y z] 1) 
t 4 atom z) z) 
,t (cons (subst x y (car z}) (subst x y (cdr z))>) 

Sassoc takes three arguments and looks up the first in 
the second, which is a special type of table called an 
association list. An association list is a list of dotted 
pairs of atomic symbols with the S-expressions associated 
with thera„ For example, to keeo a table idth the informa- 
tion 

x=l y-2 z«3 

and not bind x, jj> and js, to these values, one could bind 
tab to 

((xol) (y.2) (s«3)) 

ffassoc can look through a table in this format* it returns 
the first pair which has a car identically equal to the 
first argument • 

(sassoc (quote y) tab no) evaluates to (y*2) 



•The third argument is a function of no variables which is 
called if the item is not found. 

(sassoc (quote z) tab (quote (lambda nil 
(quote . (not found) } ) ) ) 

evaluates to (z.3) . If ^had not been found, (not found) 
would have been returned as the value of the call to sas- 
soc * in order to save space in memory, a number may be used 
as the third argument. If the search falls the uaf error 
message will be printed along with the number, sassoc could 
have been written as 

(dex sassoc (x y z) (cond 
((null y) (z}| 
VCeq x (caar y)) (car y)) 
(t (sassoc x (cdr y) s)) 

Other predicates 

fflember takes two arguments, the second of which is a 
list, and returns & if the first argument is a member of 
that list* Eq ual is used for the comparison, so any S- 
expression may be tested. The second argument is searched 
on the top level only. Member could have lieen defined "by 

(dex member (x y) (cond 
'(null y) nil) 
(equal x (car y)) t) 
t (member x (cdr y))) 



)) 



I/O operations 



JSead. takes no arguments. It reads one S<-expression from 
the typewriter or tape reader and returns that S-expression. 

(read) evaluates to (abed) if the latter is typed in. 

.takes one argument, which must be an atom. It 




prints and/or punches it with no extra punctuation. The 
value returned is the original argument. 

S-expresslon. 
carriage return 
■gument is returned. 

(print (quote (a b c))5 prints out «} 
(a b c)^ w and returns (a b c) * 

Terpri. prints and/or punches a carriage return. It takes 
no arguments and returns nil. 

. «§|PP, takes no arguments. It waits for a character to be 
typed on t;ne typewriter and then returns nii A call to 



.ftfcQft is normally punched at the end of each tape In order to 
give the operator time to load a new tape or change sense 
switches » 

Miscellaneous functions 

Gens via takes no arguments* Each call to gens yra creates a 
new atomic symbol as if it had been read in and returns that 
symbol. The names of the symbols are g QQOQl . ffQ0Q02 f etc* 

Eval takes one argument and returns its value . This 
means that the argument is actually evaluated twice. If x 

iL^ nd ^° iS8DMe-al* t>he value of (eyfij , xj is <l»3h 
whereas the value of & alone is (cons 13) . 

j&PPtE takes two arguments, a function and an argument 
list for the function. The function is called with the 
given arguments, if the function is one which normally 
evaluates all its arguments, they will not be evaluated 
again, but simply taken from the second argument to apply, 
which was, of course, evaluated already. 

(apply (quote cons) (quote (a b))) sends a. and b, 

without further evaluation, to cons, thereby "returning 
(a«b ). ~"~ 

Tgace. takes any number of arguments and does not evaluate 
them. Each argument should be the name of an expr (function 
using lambda ) „ Each function is traced, or modified so that 
it prints out its name and evaluated arguments on entry, and 
its name and returned value on exit. Nested or recursive 
functions cause the printouts to occur in proper order at 
each entry and exit* 

£ f g&ct. initially had a value of 

(lambda (x) (cond ((eaual x l) l) (t (times 
x (fact (plus x -l)})})) 

(trace fact) would evaluate to t, and redefine fact as 

(lambda (x) (prog (99g) 

(print (quote (enter fact 
(print (list x}) 
(setq 99g 

(cond ((equal x 1) l) (t (times 
x # (fact (plus x -l)|))J) 
\ print (quote (value fact)}) 
(return (print 99g)) 
)) 

Evaluation of (fact 3} would return 6 after printing 

(enter fact) 
3) 
enter fact) 

|2> 

.enter fact) 



(value fact) 

1 

(value fact) 

2 

(value fact) 



untraoe takes any number of arguments and does not 
evaluate \ there. Each argument should be the name of a traced 
functloni Untrace restores each function to its original 
definition. 

Prindef is used to punch out the definitions of functions 
and constants. It takes any number of arguments and does 
not evaluate them. Each argument should be an atomic symbol 
with a value, ffrftndqf punches the definition ot each symbol 
as a call to r piaca, and then returns a call to ato p* which 
is normally punched also. The resultant tape, tshen read in 
at a later time, defines the atoms and then waits for a 
character from the typewriter. 

(prindef fact) punches 

(rpiaca (quote fact) (quote (laisbda (x) (cond ((equal x l) l) 
(t (times x (fact (plus x -&)))))))) 

(stop) 

Prindef could have lieen defined by 

(setq prindef (quote (nlamda (x) (prog ni.1 
a (cond ((null x) (return (quote (stop** 
(print (list 

'quote rpiaca) 

( list (quote quote) (car x)) 

,11st (quote quote) (eval (car x 

terpri) 

setq x (cdr x)) 
.go a) 

»» 

Jgix^is used to edit or modify functions. It takes three 
arguments and does not evaluate them. The third is the name 
of the function to be fixed* The first argument is 
substituted for the second in each appearance in the 
function., and the function is redefined to be the result. 
Fix could have been defined "by , 

(seta fix (quote (nlatrsda (x) 

\ rpiaca (car (cddr x)J fsubst (car x) (cadr z) 



(eval (car (cddr x)})}) 
))) 

J£rog2 is used to cause the evaluation of two functions 
with a single call to ev&i. It takes two arguments, 
evaluates both, and returns the second • Prog2 could have 



"been defined by 

(dex prog2 (x y) y) 

Nconc could have been written more efficiently using orogS - 

(dex nconc (x y) (cond 
((null x) y) 
(t (prog (z) 
(setq z x) 
a (cond ((null (cdr z)) (prog2 (rplacd z y) (return x)J) 
(setq s (cdr z>) 

))» < eoa) 

mplis^ is used to send each item of a list to a function 
as the single argument of that function, and return the list 
of the values returned. Maplist takes two arguments and 
evaluates both. The first is the list of arguments, the 
second is the function., To conj. each item of the list (a b 
£^2 with & 9 for exajsple, evaluate -*—— 

(rsaplist (quote (a b c d)) 

(quote (lambda (y) (cons y (quote x)))}) 

obtaining 

((a,x) (b.x) (c*x) (d.x)} 

Maplist could have been defined by 

(dex raapiist (x y) (cond 

((mill x) nil) 

(t (cons (apply y (list (car x))) (maplist '(cdr x) y))) 
)) 



Output 

Output normally goes to the online typewriter* If sense 
switch 3 is up output goes to the punch also* Sense switch 
6 independently suppresses type-out • The punch is automati- 
cally assigned and dismissed as needed,, Error messages are 
always printed on the typewriter only 

S-expresslons which are nearly lists, such as 

(a*(b*(c.d))) 

are printed as 

(a b c.d) 

This format is also acceptable for input* 

Numbers are printed as signed integers, in octal if sense 
switch 4 is upz in decimal otherwise* Sense switch 4 is 



interrogated only after reading or printing a number. 

A carriage return is printed after every 63 characters of 
output not containing a carriage return* 

Input 

input comes from the tape reader if sense switch 5 is 
down and from the typewriter if up* The reader is automati- 
cally assigned and dismissed as needed. A call to subrou- 
tine stop always clears the time-sharing reader buffer. 
After turning off sense switch 5 it is necessary to type a 
carriage return to start reading tape. 

Carriage return and stop code are ignored. 

Parentheses, period, and space separate atoms. Extra 
spaces may be used anywhere except inside an atom. Spaces 
may be omitted except where needed to separate atoms. Tab 
and comma are equivalent to space. () is equivalent to nil. 
When an S-expression consists of an atom only it must be 
followed "by a separation character, usually space. This 
separator is saved and used on the next call to re&& a 

to 7 in octal radix {sense switch 4 uo) and to 9 in 
decimal radix are digits. An atom containing only digits, 
with an optional minus sign, is a number* Plus signs are 
not permitted in numbers. The absolute value of a number 
must not exceed 131071 decimal or 377777 octal. 

Other characters, including case shifts and all upper- 
case characters, are letters, and atoms containing one or 
more letters are atomic symbols* All atoms must begin and 
end in lower case* Atomic symbols are limited to six 
characters plus a lower case shift at the end if needed. 
Atomic symbols longer than this are truncated. 

Backspace may be used to correct errors in typing. After 
one or more characters of an atom have been typed, backspace 
deletes those characters and starts the atom over. The 
remainder of the S-expression is not affected. A backspace 
immediately after a separation character starts the entire 
S-expression over and prints out a oarriage return. 

Operation 

Read in the tape, set the sense switches as desired, and 
start at zero. LIS? reads S~expressions and prints out 
their values. The LISP program could be simulated by 

(prog nil a (print (eval (read))) (go a)) 

Some other LISP programs, notably the version used on the 
7094, use a different algorithm, in which a function and its 
argument list are typed in as two separate S-exoresaions, 
and the arguments are not evalrjated on the top level. This 
algorithm may be approximately simulated "oj 

(prog nil a (print (apply (read) (read))) (go a)} 



When first starting LISP, if sense switch 2 is on, core 1 
is assigned and used. About three times as much free 
storage is available when using 8K as when using 4k„ 

If sense switch 1 is on when LIS? is started, functions 
may he deleted, resulting in more available free storage and 
symbol table space. Subroutines may be deleted onl^r in a 
specified order, and deletion of any subroutine requires 
deletion of all that precede it* -After LISP prints out each 
subroutine name, it listens for a character from the 
typewriter. If n x M is typed, the subroutine is deleted and 
LISP prints the next one. If any other character is typed, 
the. subroutine is not deleted, and LISP begins normal 
operation. The order in which subroutines may be deleted is 

trace (deletes untrace also), reverse, fix, subst, dex, 
prindef, sassoc, gensym, member, nconc, apnend, map- 
list, or,, and, quotient, remainder, greaterp", logxor, 
Xogor, logand, times, plus, minus, equal, and eq* 

LIS? may be stopped at any time except during a garbage 
collection "oy hitting call and starting at location zero. 
Temporary bindings that are in effect at that time will not 
be removed, but this rarely causes difficulty. Starting at 
zero during a garbage collection will usually destroy most 
of free storage, LISP indicates that it is garbage collect- 
ing X)y tiirnlng on the coordinate lights on the cathode ray 
display* 

LISP may execute an illegal instruction if an improper 
operation is performed, such as an attempt to bind a number. 
Starting at zero is usually safe in this case. 

Upon detection of an error, LISP prints a 3-letter error 
code on the typewriter, sometimes followed by the S- 
expression in error* Except in the case of the pee and see 
errors, the computation continues. ' — — 



uas (unbound atomic symbol) - The argument of a call to 
ovai is an atomic symbol with no value. The symbol in 
error is printed. Nil will be returned as the value 
of the call* 

uaf (unbound atomic function) - A number without the subr 
or JlgBSlL flag, or a symbol which is not bound or is 
bound to itself, has been used as a function. The 
number or symbol is printed. The arguments for the 
function will not be evaluated, and nii will be 
returned. 

tfa (too few arguments) - A subr or expr has not been 
given enough arguments, or the symbol list after 
nlamda contains more than one symbol. Nil will be 
returned. 

tma (top many arguments) - A subr or expr has teen given 



too many arguments, or the symbol list after nlamda is 
«HPty. |il,wUl do returned* 

cva (car of valueless atom) - an attempt has been made to 
calculate the car, of an atomic symbol which has no 
value. The, symbol in error is printed, and nil win 
be returned. — -* 



led (illegal conditional) - A call to cond. has run out of 
propositions* Nil will be returned. 

ana (argument not atomic) - The argument to srinl or valp 
is not atomic . JJUL, will be returned. — — J— «■ 

nna (non-numeric argument) - An argument to plus, times, 
\9fig£» l2ggS&> 1°^9£* Quotient,, remainder . geroBT^or 
greaterp is not a number. It will be taken as zero. 

ovf (overflow) - The second argument for quotient or 
remainder is zero* Zero will be returned* — ~ 

ilp (illegal parity) - A character from the tape reader 
has even parity. It will be ignored. 

bsy (busy) - The reader, punch, or core 1 is bi\sy* Type 

any character to try again. 

pee (pushdown capacity exceeded) - The combined length of 
the pushdown list and symbol table is too great. LISP 
starts over at location zero* All temporary bindings 
remain. 

see (storage capacity exceeded) - The free-storage list 
has been exhausted, and no space could be reclaimed by 
the garbage collector, lisp starts over as with pee. 

iif (illegal input format) - An object which is not an S- 
expression has hcen read. The entire call to read 
will be started over. — — 



Appendix - &ISP functions 



name 


xype 


X 


lumber of args 

evaluate or quote 
1 PF if pseudo- 
1 | class 


description 
function 


car 


subr 


a 


. e 




general 




cdr 


subr 


i 


. e 




general 




caar 


subr 


a 


e 




general 


car* car 


cadr 


subr 


i 


e 




general 


car*edr 


cdar 


subr 


i 


e 




general 


cdr* car 


eddr 


subr 


i 


e 




general 


cdr ° cdr 


cons 


subr 


2 


e 




general 




list 


fsubr 


n 


e 




general 




rplaca 


subr 


2 


© 


PF 


general 


y -> (car x) 


rplacd 


subr 


2 


e 


PF 


general 


y -> (cdr x) 


append 


subr 


2 


e 




general 




nconc 


subr 


£ 


e 


PF 


general 


(append x y) •» x 


reverse 


subr 


1 


e 




general 




subst 


subr 


3 


e 




general 


subst x for y in z 


sassoc 


subr 


3 


e 




general 


look up x in y, or call 


and 


fsubr 


n 


e 




logical 


x and y and z • •• 


or 


fsubr 


n 


e 




logical 


x or y or z ♦«,«, 


null 


subr 


1 


e 




predicate 


x = nil 


atom 


subr 


1 


e 




predicate 


x is atom 


numbcrp 


subr 


1 


e 




predicate 


x is number 


valp 


subr 


1 


e 




predicate 


x is bound 


serop 


subr 


1 


e 




predicate 


x « 


greaterp 


subr 


2 


e 




predicate 


x > y 


eq 


subr 


2 


e 




predicate 


x is y exactly 


equal 


subr 


2 


e 




predicate 


x looks like y 


member 


subr 


2 


e 




predicate 


x is a member of y 



plus 


fsubr 


n 


e 




arlth 


x +-y + z ..♦ 




minus 


subr 


1 


e 




arith 


-X 




times 


fsubr 


n 


e 




arlth 


x x y x z •<>• 




logor 


fsubr 


n 


e 




arlth 


x v y v 2 ... 




logand 


fsubr 


n 


e 




arlth 


x A y A a • »• 




logxor 


ieubr 


n 


e 




arith 


x ~ y ~ z „ , . 




quotient 


subr 


2 


e 




arith 


U/yJ 




remainder 


subr 


2 


e 




arlth 


x - y x [x/y] 




read 


subr 







PP 


I/O 






prinl 


subr 


1 


e 


PF 


I/O 


print atom 




print 


subr 


X 


e 


PP 


I/O 


print S«expresslon 




terpri 


subr 







PP 


I/O 


print carriage return 




stop 


subr 







PP 


x/o 


wait 




gensym 


subr 







PF 


misc. 


create symbol 




quote 


fsuor 


1 


q 




ml so* 


: 




setq 


fsuor 


2 


q>© 


PP 


nils Co 


bind x to y 




cond 


fsubv 


n 






misc* 






eval 


subr 


1 


e 




misc* 


value of x 




apply 


subr 


2 


e 




raise* 


call x with y 




trace 


fsvbr 


n 


q 


PF 


misc. 






untrace 


fsubr 


n 


q 


PF 


misc. 






prindef 


fsu'or 


n 


q 


PF 


misc 


print definitions 




dex 


fsubr 


-5 


q 


PF 


misc* 


define expr 




fix 


fsubr 


3 


q 


PP 


misc* 


fix x for y In s 




prog 


fsubi* 


n 






misc* 






go 


subr 


1 


e 


PP 


misc. 


go to X 




return 


subr 


1 


e 


PF 


misc. 


return from program 




mapiist 


subr 


2 


e 




misc* 


send each element of x 


to y 


prog2 


subr 


2 


e 




misc* 


y 





lisp for ts«lA/66 w» 

test=sas hih 

define error who, where 

q=flexo who 

jsp err 1 where 

[qA77xi ]V [qA7700 ]v [ayv770000xioo ] 

terminate 

ct=(lt 

cn=(lnil 

ci=(i 

c3=(3 
cpde=(pde 

repeat 1-if 2, equals halt , stop 
bind=jdp bn 
push=jda pwl 
pop=jsp po 
zorch=jdp zo 



0/ 


jmp 


begin 




law 


rdl 




dap 


rdx 


loop, 


dzm 


pa3 




dzm pa4 




law 


pde 




dap pdl 




cal 


read 




cal 


eval 




cal 


print 




jmp 


loop 




lac 


100 


pwl, 









dap 


psx 




law 


i 1 




adm 


pdl 




sad 


snd 




jmp 


pee 




lac 


pwl 




dac 


i pdl 


psx, 


jmp 


• 


po, 


dap 


pox 


pdl, 


lac 


pde 




dac 


pwl 




idx 


pdl 




lac 


pwl 


pox, 


jmp 


• 



/push 



/pop 



bn,t4, 



/bind 

pUSh l*<«UL ef aJfe^ 

lac i pwl 9 

dio i pwl/iai^t i*J</£ 

push /frV i/«-W 

jmp i bn 



cddr, 

cdar, 

cdr, 

quote, 

car, 



x, 



cadr, 
caar, 



number, 

atom, 
tru, 

zerop, 



g4,tl, 
gl,t2, 

repeat ifm 

/] 
101/ 



add (1 
cal car 
Idx 100 

lac i 100 

sza 1 

jmp cva 

dac 100 - 

pop 

ral Is 

spa 

jmp pwl-1 I S*~f 

lio pwl / £ - e^jus-****^ 

pop 

dio i pwl 

jmp x 1 

add (1 
cal car 
jmp car 

sma 
^jmp fal 
sub cpde 



/"cddr" 

/"cdar" 

/" cdr 11 * fo r <^<~'* ^ ^ 

/"quote" </ ' 

/"car" Ac ^ % 



/"^s^ZZ^^ ^ Q ^t^ 



/" cadr" 
/" caar" 

^ C ur^k^ iJh^i / " numb e rp " 



4c ^ 



#.«. 



13 



A 



sma 

jmp fal lv r^ 5 ' r ' * ->*- 

lac ct — - 

jmp x 



/"atom" ai^ 



•VJ 



fUSA<_ t5 t e^ 



u 



<r>\ 






cal vag ,. ^k ,,i t /"zerop" 
sza 

jmp fal 
jmp tru 




100-. , [printx /No room. 



dap pox 
sub (1 
dap . 1 
lac . 
dap . 4 
lac pox 
push 
lac 100 
jmp . 



jflAA*.J\ «-T_C^u^\ y fi*y 



cva 



error cva, -2 
jmp u2 



vag, 



zo,t3, 



valp, 

fal, 

ana, 

nna, 
mix, 



sma j 

jmp nna - ^ a^^-^.- 

sub cpde i ' i 

jmp nna~"^ 
lac i 100 — 
jmp x 



/VvWfy^c et t\M<*w~ l ^< t-i&pS 1 



ZZ-iJ^ ca<. &£ 3^a 



*o 



i^i 



<s* 



/zorch <*^ ^ f^J-i^ JL^i 

idx i pdl * A ^i 

dac t2 («. b «- O 

idx tl 

lac i t2 

dac i tl 

dio i t2 

dio i pdl 

idx pwl ^) fL: t ^ ; / 

lac i pwl J ^ w ^' l -^j^ t i, 

jmp i zo 




*J ^j 



I— -m.,,, ,„. „ Trl- I . 




sma 
jmp 
cla 
sas 


ana 
i 100 


jmp 
lac 
jmp 


tru 
en. rJi 

X 


error ana, -2 
jmp u2 


error nna, -2 
cal print 
clavclivstf 4 
jmp x 



/"valp" 









U^^AAt***'^*' vJU* •»«3' '"S^C^S^t.^ .. 




in, 


stf 


4 






szs 


50 






Jmp 


tin 




ras, 


skp 


600 


/skip if reader 




jmp 


ra2 






law 


51 






jdp 


asg 






dap 


ras 




ra2, 


rpa 








rir 


7s 






sni 


i 






spi 








Jmp 


in 






ril 


7s 






lai 








ior 


(rar 






dac 


. 2 






law 2525 















spa 








jmp 


gtc 






error ilp 






jmp 


in 




tin, 


law 


i 51 


/entry for stop 




xct 


ras 






arq 




/dismiss reader 




law 


600 






dap 


ras 






tyi 






Stc, 


lai 








and 


(77 






sas 


74 


/upper case 




sad 


(72 


/lower case 




dac 


cas 






jmp 


X 




asg, 



arq 








jmp bsy 






cla 








jmp 


i asg 




bsy, 


error bsy 






stf 


4 






tyi 








law 


i 2 






adm 


asg 






jmp 


i asg 




stop=. 


cal 


tin 


/ u st< 




jmp 


fal 




cas, 


72 







u'* 



ft 



p3, 

P2, 
out, 



ou4, 



oug. 



ou3, 



oux. 



pec. 



lac 


1 a3 


cal 


out 


cal 


out 


law 


77 


and 


100 


sas 


cas 


sad 


(76 


jmp 


oux 


sad 


(77 


dac 


pec 


ior 


(ral 


dac 


oug 


law 


252 







and 


(200 


adm 


oug 


lia 




szs 


i 34 


jmp 


oul 


skp 


600 


jmp 


ou2 


law 


4? 


jdp 


asg 


dap 


pas 


lio 


oug 


ppa 




jmp 


ou3 


law 


1 47 


xct 


pas 


arq 




law 


600 


dap 


pas 


szs 


1 64 


tyo 




law 


77 


and 


100 


sas 


(74 
(72 


sad 


jmp 


oux-1 


sas 


(56 

(40 


sad 


jmp 


oux 


law 


i 1 


adm 


pec 


sma 




jmp 


oux 


law 


77 


jmp 


ou4 


dac 


cas 


lac 


100 


rar 


6s 


jmp 


X 








t*\iP<> 



pas, skp 600 /skip if punch not asigned 



ou2, 
oul, 



read, clavstf 5 /"read" 

push 

lac pdl 

dap re2 

jmp rdx 
iif , error iif 
re2, law . /old pdl 

dap pdl 

cal terpri 

stf 5 
rdl, elf 6 /on if letter seen 

elf 3 /on if minus sign seen 

dzm al /value of number 

lac snd 

dac sy2 

dac syl 

dap pti 

idx sy2 

sub pdl 

add (3 

sma 

jmp pee 

lac (add-7 /character count 

dac t2 

lio (767676 

dio i syl 

dio 1 sy2 
rip, cal in 

lio cas 

rir 2s 

law tbl /lower case origin 

spi i 

law tb2 . /upper case origin 

dap tbs 
tbO, law 77 

and i tbs 

sad 100 

jmp tbs 

idx tbs 

sas (lac tb3 

jmp tbO 

lac 100 

sub rad 

sma 

jmp rsl 
num, lac al 

mul rad 

scr Is 

lai 

lio 100 

rir 5s 

spi i 

add 100 

dac al 

jmp rsl 1 
min, stf 3 /- 

jmp rsl 1 
bsp, lac i syl /backspace 

sad (767676 



jmp re2 
jrap rdl 



t^iSP"? 



\$f t 



tbl, 20+100xnum /dispatch table 

54+100xmin 

55+100xrpr+add 

57+100xlpr+add 

73+100xper+add 

00+100xrdl+add 

33+100xrdl+add 

36+100xrdl+add 
tb2, 56+100xvb 

75+lOOxbsp 

13+100xrlp 

77+100xrlp 
tb3,vb, ' cal in /"" 
rsl, stf 6 /letter seen 

isp t2 /pack character 

jmp rip 

sad (add-3 

idx ptl 
ptl, lac . 

lio 100 

rcr 6s 

dac i ptl 

jmp rip 
tbs, lac • 

lia 

rar 6 s 

dap rdx 

spi i 

jmp rdx 

law i 4000 

adra rdx 

lac i syl 

sad (767676 
rdx, jmp . /no atom 

szf 5 i 

jmp iif 

cal mka 

jmp rxy+2 
putob, law sym /oblist lookup 

dap ptl 
syl, lac • 

sas i ptl 

jmp idl-1 

idx ptl 
sy2, lac . 

sas i ptl 

jmp idl 
fou, idx ptl 

add (lac 

jmp x 

idx ptl 
idl, law 3 

adm ptl 

sas snd 

jmp syl 

idx ptl 

dac snd 

idx snd 

dzm i snd 



idx snd 
lac en 
dac i snd 
Idx snd 

jmp fou 



L\ 



5/^f 



v^** '° 



lpr, 


szf 


i 5 /( 






jmp 


iif 






lac 


en 






push 






jmp 


rdl 




per, 


lac 


i pdl /. 






sad 


en 






jmp 


iif 






rar 


is 






spq 


5 


- 




jmp 


iif 






idx 


i pdl 






jmp 


rdl 




rpr, 


law 


rdl /) 






dap 


rdx 






lac 


i pdl 






rar 


Is 






spq 








jmp 


iif 






pop 








szf 


5 






sad 


en 






jmp 


rxy 






idx 


pwl 






lio 


en 






lac 


i pwl 






dio 


i pwl 




rxy, 


stf 


5 






dac 


100 






pop 








sza 


i 






jmp 


X JL 






push 






rar 


Is 






spa 








jmp 


rd5 






lac 


100 






cal 


cons-1 






lac 


i pdl 






sad 


en 






jmp 


rdn 






zorch 






jmp 


rdx 




rdn, 


idx 


tl 






dio 


i tl 






jmp 


rd7 




rd5, 


lio 


i pwl 






lac 


100 






dac 


i pwl 






elf 


5 




rd7, 


dio 


i pdl 






jmp 


rdx 




mka, 


sas 


(547676 


/make atom 




szf 


6 






jmp putob /atomic 


symbol 




cal 


plO 


/number 




szf 


3 






cma 







uitpn 



cm, lio en /create number 
dlo gl 
cal cons 1 
add (add 
jmp x 

pee, law pde 
dap pdl 
error pee 
Jmp 

fre, 

snd, lac esy 

err-2, lio 100 

dlo al 
err, dap erx 

elf 4 

cal terpri 

lac I erx 

cal p3 

cal terpri 

idx erx 

lac al 
erx, jmp . 



u$f f ^ 



prinl, 



dpi, 



rad, 



prs 



pio, 



sma 
jmp 
sub 
sma 
jmp 
lac 
lia 
spa 
cma 
dac 
dzm 
law 

cal 
lac 

dac 
mul 
div 
10. 
sas 
jmp 
lai 
sza 
law 
cal 
lac 
dac 
sas 
jmp 
jmp 



law i 2 
add 100 
dac a3 
cal p3-l 
idx a3 
cal p3-l 
law 10. 
szs 40 
law 10 
dac rad 
lac ai, 
jmp x 



ana 
cpde 

prs /symbol 
I 1001 



a3 
t3 
54 

out 

a3 
t4 

(1 
rad 

t3 
dpi 

1 

20 

out 

t4 

t3 

a3 

dpi 

plO 



/"prinl" 



h** 



\jv 



, ? Vt 



•vt^J 



s'-p-i u^i )- 



~~—^j 



uif (J 



terpri/ 
print, 

pnl, 
pn5, 



pn2, 
pn6, 



pn3, 
pn7, 



cal print 






law 7772 




/"terpri" 


cal p2 






jmp fal 






dac tl 




/"print" 


cal terpri 




cla 






push 




- 


lac tl 
spa 


is *-4 


te.-w*y| * 


jmp pn2 "**" 
law 5772 


***%i«**.«*-Ht.*«« - „ i 


cal p2 tyC 






lac tl 






cal cdr 






push 
lac i tl 


ytfAju "^ 




dac tl 






jmp pnl 






cal prinl 


2 




pop 






dac tl 






sza i 






jmp pn7 — 


ci^PvA-. 




law 72 






lio tl 






spi i 






jmp pn5 






lac tl 






sad en 






jmp pn3 


»\ 




law 7372 


.4V 




cal p2 






lac tl 






cal prinl 


2 




law 5572 


)^y 




cal p2 






jmp pn6 






law 72 






cal p2 






lac aly,f 


^j£~M( 




|ftpa^ j ' 







»\*f > f 



cons -2, 


cal 


eval-1 


cons-1, 


lio 


en 


cons, 


dzm 


gl 




lac 


fre 




sza 


i 




jmp 


gc 


con2, 


dac 


tl — ... 




lac 


ioa 




dac 


i fre 




idx 


fre 




lac 


i fre 




dio 


JL 1 X v5 


- 


dac 


fre 




lac 


tl 




lia 






jmp 


X 


null=. 


xor 


en 




jmp 


zerop 1 



setq, 



rplacd, 
rplaca, 



evlis-1, 

evils, 

list, 



ele, 
el2, 

el5, 



frt 



^^ / u cons"X^ a } fe\ 



4^, H^<f; 



push 

cal eval-2 (eyaJl M 

lia f*> *Ju4ti3 -^ 

pop - 

cal car y* -^> ^L 

dio i ioo—-——— 

jmp prog2 

idx 100 
sub (1 



dio i 100 
jmp .x 

lac a2 

szf 2 

sad en ^ 

jmp x 4 "-* 

push 

cal cons -2 - c ^^ 

lac i pdl 

dac pwl 



/"null" 
/" setq" 



AC 



/"rplacd" U^ ke d *.> &) 
/"rplaca" ^ 



4e< 

X.0 ~ 



/"list 11 ^V ■ el 



/ A, 



|W. 



*"**" ^V—y u/%.fi„ 



*'J 



K t 



4 ) 



%l lit 1 *»* f ° L * *■ K*^ f {L M 

push "" ■ -$^^ J 

cal cons-2 ^^ ^ 

pop a ^ ^*^t ^ 

safari ^ C ^ t ^ 

jmp ele tj;^^ ^^ 
lio en 



(-XM.iU.J 



lac 

di 
jmp x 



o i pwl ^ ^ ^ j v 7 ^ 



MS/ 3 tg~ 



gfr, 


dap 


gfx 


/list marker 




lac 


i ptl 






ral 


Is 






spq 








jmp 


gfx 






law 


i 1 






and 


i ptl 






cliVswp 




inl, 


dac 


£>■** 




in2, 


dac 


g3 






idx 


g3 




in3, 


dio 


g2 






dio 


g 4 






idx 


g4 






lac 


i g4 






and 


(dip 






sza 


i 






jmp 


gen 






lac 


gl 






sza 


i 




gfx, 


jmp 


• 






lac 


i g3 






ral 


Is 






spa 








jmp 


gcb 






lac 


i g3 • 






and 


(-dip 






lia 








lac 


i gl 






ior 


(dip 






dac 


i g3 






lac 


g2 






dac 


■m f-^jJtm 






jmp 


in3 




gcb, 


lio 


gl 






lac 


i g3 






and 


(-dip 






dac 


gl 






lac 


*2 
(lac 






ior 






dac 


i g3 






lac 


gl 






jmp 


in2 




gen, 


lac 

sma 


g2 






jmp 


gel 






sub 


cpde 






sma 








jmp 


gfx-2 






lio 


i g4 






lac 


gl 
(dip 
i g4 






ior 






dac 




in4, 


lac 


g2 






jmp 


inl 




gel, 


lio 


i g2 






lac 


(xct 






adm 


i g4 





lac gl 
dac i g2 
jmp in4 



U<>? >£ 



u\$f Ik 



gc, dio al /garbage collector 

clcVlla 

dpy 400 

law 100 

dap ptl 

lac gl 

sza i 

jsp gfr 

law sym 

dap ptl 
oblp, law 2 

adra ptl 

jsp gfr 

idx ptl 

jsp gfr 

idx ptl 

sas snd 

jmp oblp 

lac pdl 

dap ptl 
pdlp, jsp gfr 

idx ptl 

sas ell />lac a2 

jmp pdlp 
low, law frs 

dac tl 
swlp, idx tl 

lac i tl 

lia 

and (-lac 

dac i tl 

ril Is 

spi 

jmp swlf 

lac fre 

dac i tl 

law i 1 

add tl 

dac fre 
swlf, idx tl 

test 

jmp swlp 

clavcli 

dpy 300 

lio al 

lac fre 

sza 

jmp con2 

error see 

jmp 



sr '• 



prog2, lai /"prog2" 

jmp x 

return, dac pa3 /"return" 

go, dac pa4 /"go" 

jmp x 

prog, lac i al /"prog" 

sad en 
jmp pr2 

dac 100 /get a prog variable 
lac 1 100 
lio en 
bind 
lac 100 
cal cdr 
jmp prog 1 

pr2, lac al 
pr3, cal cdr 

sad en 
jmp pr35 
lia 

cal car 
spa 
bind 
lai 
jmp pr3 

pr35* lac pa3 

push 

lac pa4 

push 

dzm pa3 

lac al 
pr4, cal cdr 

dac pa4 

sad en 

jmp pr6 /program finished 

lac i pas- 
cal eval 
ik2, lac pa4 

lio pa3 

sni 

jmp pr4 

lai 

pr6, dac 100 
pop 

dac pa4 
pop 

dac pa3 
jmp x 1 



u*&!> i y 



apply, 
ikd, 



cn2, 
cond, 



eval-2, 
eval-1, 
eval, 



u2, 
ev2, 

apl, 



exg, 
exs, 



^A<^ 



U; 



^ 



^4" fl 



elf 2 

jmp apl 

pop 

sad . 1 

jmp ik2 

push 

error icd 

jmp tfa 2 

pop 

cal cdr 

sad en 

jmp ikd 

push 

cal caar 

cal eval 

sad en 

jmp cn2 ^v**- ^ 

pop 

cal car 

cal cdr J^^ 

cal car 
dac al 
sma 

jmp ev2 
sub cpde 
spa 

jmp x 1 
lac i al 
sza 
jmp x 
error uas 
cal terprl-1 
jmp tfa 2 
lio 1 al 
cal cdr 
dac a2 
stf 2 — 
dio al 
lac al 
sma 
jmp e3 
sub cpde 
sma 

jmp e4 
lac al 
cal cdr 
sad (lsubr 
jmp esu 
sas (lfsubr 
jmp uaf 
lac I al 
dap exs 
lac a2 
dac al 
lio a2 
dac 100 
jmp • 



/"apply" 



^ f 



0»»wN»« 



/"cond" 



us 



U^ <2i' 



/"eval" 



/not atomic 



/number 
/atomic symbol 



/argument list j- ^J. 
/function 



/non-atomic function 
/atomic function 

/symbol 
/number 



/function is fsubr 



Li*** l 

esu, lac i al /function is subr 



spl, 



sp9, 



lac 


1 al 


push 


cal 


evlis-1 


pop 




dap 


exs 


ral 


6s 


and 


I 3 
(al 


add 


dac 


t2 


lav; 


al 


dac 


tl 


sad 


t2 


jmp 


sp9 


lac 


100 


sad 


en 


jmp 


tfa 


lac 


1 100 


dac 


1 tl 


lac 


100 


cal 


cdr 


idx 


tl 


jmp 


spl 


lac 


100 


sas 


en 


jmp 


tma 


lac 


al 


jmp 


exg 


lac 


i al 


sza 




sad 


al 


jmp 


uaf 


dac 


al 


jmp 


apl 


error uaf 


jmp 


u2 



e4, lac i al /function is symbol 



uaf, 



e3, lac i al /function is not atomic 
sad (llambda 
jmp ela 
sad (lnlamda 
jmp enl 
sad (llabel 
jmp elb 

lac a2 /evaluate entire function 
push 
lac al 
cal eval 
pop 

lio 100 
jmp apl-3 



ela, lac al /function is "lambda" 

push 

cal evlis-1 

dac a2 

pop 

dac al /args in a2, function in al 

cal cadr /get lambda variables 
/pair lambda list with arg list 



U> 



i^/f 



ell, 



el9, 



enl, 



elb, 



tfa, 



tma, 



lac a2 
sad en 
jmp el 9 
lac 100 
sad en 
jmp tma 
lac i 100 
lio i a2 
bind 
idx a2 
lac i a2 
dac a2 
lac 100 
cal cdr 
jmp ell 
lac 100 
sas en 
jmp tfa 
lac al 
cal eddr 
jmp eval-1 

lac al 
cal cadr 
sad en 
jmp tma 
lac i 100 
lio a2 
bind 
idx 100 
lac i 100 
jmp el9 1 

lac al 

cal cdr 

dac al 

cal cadr 

lia 

lac i al 

bind 

jmp apl-1 

error tfa 
stf 4 

jmp fal 

error tma 
jmp tfa 2 



/no more args 



/function is "nlamda" 



/function is "label" 



constants 



U4f ^ 



define here x,y 
x 

y 

terminate 

define put z 

here [define here 123,456 

J.&.J j , 1 « 

456 

terminate ] 

terminate 



define pa'ck q 

n2=q 

nl=767676 

repeat 3,n2=m2xl00 

rd. 

terminate 

define pname name,val 
pack textl /name/ 
pack text2 /name/ 
I'namessadd . 
val lnil 

terminate 

define su name,num,/g 
pname name, add g 
put [s name,num,g] 
terminate 

define fsu name,/g 
pname name, add g 
put [f name,g] 
terminate 

define apval name 
pname name,! 1 name 
terminate 

define thing name 
pname name,0 
terminate 



repeat ifn n2A77,nl==n2~nlA77~nlxi 



equals s,if2 

equals f,if2 

repeat 1-if 2, define kill x 

repeat if 2, define kill x 

hih, i 

.+.A1/ 

sym, 



terminate 
equals x,if2 



terminate 



su cons, 2 
fsu quote 
su car,l 
su cdr,± 
su caar,l 
su cadr,l 
su cdar,l 
su cddr,l 
su null,l 
su rplacd,2 
su rplaca,2 
fsu setq , 
fsu prog 
su go,l 
su return, 1 
apval t 
apval nil 
su zerop,l 
thing lambda 
thing nlamda 
thing label 
fsu cond 
su apply, 2 
su eval,l 
fsu list 
su terpri,0 
su valp,± 
su number, 1 
su atom,i 
su prog2,2 
su read,0 
su prinl,l 
su print,! 
su stop,0 
thing subr 
thing fsubr 
su eq,2 
su equal, 2 
su minus, 1 
fsu plus 
fsu times 
fsu logand 
fsu logor 
fsu logxor 
su greate,2 
su remain, 2 
su quotie,2 
fsu and 
fsu or 
su maplis,2 
su append, 2 
su nconc,2 
su member, 2 
su gensym, 
su sassoc,3 

fsu prinde 
fsu dex 
su subst,3 



fsu fix '^\Sfx v 

su reversal 

fsu trace 

tsy, 

fsu untrac 

thing 99g 

thing enter 

thing value 



M 5^ J-*f 

esy, 

/free storage maker 



begin, 


eem 




lio .-1 




dio 




szs 20 i 




jmp . 5 




lac (and 




dac hih 




law 6301 




jdp asg 




elf 4 




szs 10 i 




jmp nxp 


xpl, 


lac (lac-2 




add a2 




dac al 




cal print 




tyi 




lai 




sas (charac rx 




jmp nxp 
law i 4 






adm a2 




dac snd 




lac i al 




dap ta5 




sma 




jmp xpl 




lac i ta5 




add (1 
and (-1 






dap low 




jmp xpl 


nxp, 


cli 




xct low 


gc9, 


sad (frs 


ta5, 


law f r2 




dac tl 




dac gl 




idx tl 




dio i tl 




lio gl 




idx tl 




test 




jmp gc9 




dio fre 




jmp 


constants 




sym 2100/ 




pde, 




pa3, 





pa4, 





al, 





a2,g3, 


lac tsy 


a3,g2, 






eq, 


xor 


a2. 




jmp 


zerop 1 


eq4, 


pop 






cal 


cdr 




lia 






pop 






cal 


cdr 


equal, 


dio 


tl 




sad 


tl 




jmp 


tru 




spaN/spi 




jmp 


eq3 




sma 






spl 






jmp 


fal 




push 




lai 






push 




lac 


1 100 




lio 


i pwl 




cal 


equal 




sas 


en 




jmp 


eq4 




pop 




ppf, 


pop 






jmp 


fal 


eq3, 


sub 
swp 


cpde 




sub 


cpde 




spavspl i 




jmp 


fal 




lac 


1 100 




xor 


1 tl 




jmp 


zerop 1 


minus, 


cal 


vag 




jmp 


crn-1 


plus, 


cal 


evils 




law 


cadt2 




dzm 


t2 


nmop, 


dap 


nm2 




lac 


100 


nml, 


dac 


a2 




sad 


en 




jmp 


nm9 




lac 


i a2 




cal 


vag 


nm2, 


xct 


• 




dac 


t2 


nra3, 


lac 


a2 




cal 


cdr 




jmp 


nml 


nm9, 


lac 


t2 




jmp 


crn 



/"eq" 



*»f x<~ 



/"equal" 



/"minus" 
/"plus" 



cadt2, add t2 t^&fi *-<* 



times, 



logand, 



logor, 



logxor, 



greate, 



remain, 



divi, 



quotie, 



cal evlis 
law 1 
dac t2 
jsp nmop 
jmp . 1 
rnul t2 
scr Is 
dio t2 
adm t2 
jmp nm3 

cal evlis 
clc 

dac t2 
jsp nmop 
and t2 

cal evlis 
jsp nmop-1 
ior t2 

cal evlis 
jsp nmop-1 
xor t2 

cal vag 
dac al 
lac a2 
cal vag 
clo 

sub al 
szo 

lac 100 
jmp atom 

cal divi 
swp 

jmp cm 

lai 

cal vag 
dac a2 
lac al 
cal vag 
raul cl 
div a2 
jmp . 2 
jmp x 
error ovf 
jmp nnx 

cal divi 
jmp crn 



/"times" 



LIS? *1 



/"logand" 



/"logor" 



/"logxor" 



/"greaterp" 



/"remainder" 



/"quotient" 



and2, sad en /"and" 



orl, 

or, sad en /"or" 



PPt, 

maplis, sad en /"maplist" 



mpl, 

mp2, 

map, 



sad 


en 


Jmp 


tru 


push 


cal 


eval-1 


sad 


en 


Jmp 


ppf 


pop 




cal 


cdr 


Jmp 


and2 


pop 




cal 


cdr 


sad 


en 


Jmp 


fal 


push 


cal 


eval-1 


sad 


en 


Jmp 


orl 


pop 




Jmp 


tru 


sad 


en 


Jmp 


X 


push 


cal 


map 


lac 


i pdl 


dac 


pwl 


dio 


i pdl 


Jmp 


mp2 


push 


cal 


map 


pop 




zorch 


sas 


en 


Jmp 


mpl 


Jmp 


el5-l 


lac 


a2 


push 


lac 


1 100 


cal 


cons-1 


lac 


a2 


dac 


al 


dio 


a2 


cal 


apply 


cal 


cons-1 


pop 




dac 


a2 



jmp x 



append, 



apnl, 



apn2, 



nconc, 



member, 



sad en 
jmp prog2 
push 
cal car 
cal cons 
lac i pdl 
dac pwl 
dio i pdl 
jmp apn2 
push 
cal car 
lio a2 
cal cons 
pop 
zorch 
sas en 
jmp apnl 
lio a2 
jmp el5 

sad en 
jmp prog2 
dac a2 
cal cdr 
sas en 
jmp .-3 
Idx a2 
dlo i a2' 
lac al 
jmp x 

lal 

sad en 
jmp fal 
dac a2 
lac 1 a2 
lio al 
cal equal 
sas en 
jmp x 
lac a2 
cal cdr 
jmp member 1 



/"append" 



ut$f* *y 



/"nconc" 



/"member" 



gensym, 


law 


gst 




dac 


tl 


gen2, 


Idx 


i tl 




sad 


(21 




law 


1 




dac 


i tl 




sas 


(12 




jmp gen3 




law 


20 




dac 


i tl 




idx 


tl 




jmp 


gen2 


gen3, 


lac 


snd 




dac 


sy2 




dac 


syl 




idx 


sy2 




sub 


pdl 




add 


c3 




sma 






jmp 


pee 




law 


charac mg 




ior 


gst 3 




ral 


6s 




ior 


gst 4 




ral 


OS 




dac 


i syl 




lac 


gst 




ral 


6s 




ior 


gst 1 




ral 


6s 




ior 


gst 2 




dac 


i sy2 




jrap 


putob 


constants 






gst, 


repeat 5,20 


sassoc, 


lac 


a2 




sad 


en 




jmp 


ss2 




cal 


car 




lac 


i 100 




sad 


al 




jmp 


x 1 




lac 


a2 




cal 


cdr 




dac 


a2 




jmp 


sassoc 1 


ss2, 


lio 


a3 




lac 


en 




jmp 


ev2 2 



/"gensym" 



Ut * 



1^ 3$ 



/"sassoc" 



ui** 3 / 



prinde, 



P<1> 
pfl, 



sad en 

jmp pfl 

push 

cal caar 

cal cons-1 

lac pq 

cal cons 

cal cons-1 

lac i pdl 

cal car 

swp 

push 

swp 

cal cons-1 

lac pq 

cal cons 

pop 

swp 

cal cons 

lac (lrplaca 

cal cons 

cal terpri-1 

pop 

cal cdr 

jmp prinde 

lquote 

lac (istop 

dac 100 

jmp cons-1 



/"prindef" 



constants 
dex, 



lam, 



cal cdr 
11a 

lac i al 
dac al 
lac lam 
cal cons 
dio i al 
jmp pn7 2 
llambda 



/"dex" 



subst, 



sub si, 



X JuJ\* j 



re vers, 



push 

push 

cal sub si 

pop 

pop 

jmp x 1 

llo a2 
lac a3 
cal equal 
sad en 
jmp • 3 
lac al 
jmp x 
lac a3 
spa 
jmp x 
cal cdr 
push 
lac i a3 
dac a3 
cal sub si 
lio i pdl 
dac i pdl 
dio a3 
cal subsl 
lia 
pop 

dac 100 
jmp cons 

cal cdr 
lio i 100 
dio a2 
cal cadr 
push 
cal car 
dac a3 
lac i al 
dac al 
cal subst 
lia 
pop 

dio i pwl 
jmp x 

lio en 

sad en 

jmp prog2 

push 

cal car 

cal cons 

pop 

cal cdr 

jmp reverse 1 



/"subst" 



u j $f J^ 



/" fix" 



/"reverse" 



trace, sad en /"trace" ^ * ^ 

jmp tru 

push 

lac i pwl 

dac t3 

lac i t3 

sza i 

jmp tr2 

cal car 

sas lam 

jmp tr2 
' lac (I99g 

cal cons-1 

dac t4 

lac (iprint 

cal cons 

cal cons-1 

lac (ire turn 

cal cons 

cal cons-1 

lio i pdl 

push 

lai 

cal car 

cal cons-1 
lac (lvalue 

cal cons 

cal cons-1 
lac pq 
cal cons 
cal cons-1 
lac (iprint 
cal cons 
lio i pdl 
cal cons 
dio i pdl 
lac i t3 
cal eddr 
cal car 
cal cons-1 
lac (I99g 
cal cons 
lac (isetq 
cal cons 
lio i pdl 
cal cons 
dio i pdl 
lac i t3 
cal cadr 
lia 

lac (Hist 
cal cons 



cal cons-1 
lac (lprint 
cal cons 
lio 1 pdl 
cal cons 
dlo 1 pdl 
lac t3 
cal cons-1 
lac (lenter 
cal cons 
cal cons-1 
lac pq 
cal cons 
cal cons-1 
lac (lprint 
cal cons 
lio i pdl 
cal cons 
lac t4 
cal cons 
lac (lprog 
cal cons 
lac i t3 
cal cddr 
dio i 100 
idx pdl 
tr2, pop 

cal cdr 
jmp trace 

untrac, sad en /"untrace" 

jmp tru 

cal car 

lac i 100 

sza i 

jmp ut2 

cal cddr 

dac t2 

cal cdar 

dac tl 

cal caar 

sas (199s 

jmp ut2 

lac tl 

cal cddr 

cal cadr 

cal cddr 

cal car 

dac i t2 
ut2, lac al 



5Y 3-y 



p 



cal cdr 
dac al 

jmp untrac 



constants 



.+.A1/ 

frs, 

and=and2 

equals put, if 2 
equals pname,if2 
equals su,if2 
equals fsu,if2 
equals apval,if2 
equals thing, if 2 

define s name,num, g 

g, jmp ixnum name 

Isubr 

kill g 

terminate 

define f name,g 
g^'mp name 
lfsubr 
kill g 
terminate 

here 
and=i i 
fr2, 

equals nl,If2 
equals n2,if2 
equals n3,if2 
equals q,if2 
start 



(rplaca (quote theore) (quote (lambda (s) (and (null (atom s)) 
(th nil nil nil (list s)))))) 

(rplaca (quote caddr) (quote (lambda (s) (car (cddr s))))) 



(rplaca (quote th) (quote (lambda (al a2 
) (and (null (null c2)) (thr (car c2) al 
thl (car a2) al (cdr a2) cl c2)))))) 

(rplaca (quote thl) (quote (lambda (u al 
car u) (quote not)) (thlr (cadr u) al a2 



cl c2) (cond 
a2 cl (cdr c2 



(null a2 
))) (t ( 



a2 
cl 



cl c2) (cond ((eq 
. . . . . c2)) ((eq (car u) 
quote and)) (th21 (cdr u) al a2 cl c2)) ((eq (car u) (quote or 
) (and (thll (cadr u) al a2 cl c2) (thll (caddr u) al a2 cl c2 
)) ((eq (car u) (quote irnplie)) (and (thll (caddr u) al a2 cl 
2) (thlr (cadr u) al a2 cl c2))) ((eq (car u) (quote equiv)) ( 
nd (th21 (cdr u) al a2 cl c2) (th2r (cdr u) al a2 cl c2))))))) 



\r[*P 3 



(rplaca (quote thr 
car u) (quote not) 
quote and 
a2 cl c2 



) (quote (lambda (u 
) (thll (cadr u) al 



al 
a2 



cl 



cl c2 ) ( cond ( ( eq ( 

c2)) ((eq (car u) ( 

I (thlr (caddr u) al 

__ __, , , „__„ , _. _ _., , A __ , , , _.. _ (cdr u) al a2 cl c2 

)) ((eq (car u) (quote implie)) (thll (cadr u) (caddr u). al a2 
cl c2)J ((eq (car u) (quote equiv)) (and (thll (cadr u) (caddr 
u) al a2 cl c2) (thll (caddr u) (cadr u) al a2 cl c2) )))))) 



(rplaca (quote thll) (quote (lambda (v al a2 cl c2) (cond ((ato 

m v) (or (member v cl) (th (cons v al) a2 cl c2))) (t (or (memb 
er v c2) (th al (cons v a2) cl c2))))})) 

(rplaca (quote thlr) (quote (lambda (v al a2 cl c2) (cond ((ato 

m v) (or (member v al) (th al a2 (cons v cl) c2))) (t (or (memb 
er v a2) (th al a2 cl (cons v c2) ))))))) 



(rplaca (quote th2l) (quote (lambda (v al a2 cl c2 
m (car vjj (or (member (car v) cl) (thll (cadr v) 
al) a2 cl c2))) (t (or (member (car v) c2) (thll 
cons (car v)a2)clc2 ))})))) 



(cond ((ato 
cons (car v) 
cadr v) al ( 



(rplaca (quote th2r) (quote (lambda (v al a2 cl c2) (cond ((ato 
m (car v)) (or (member (car v) al) (thlr (cadr v) al a2 (cons ( 
car v) cl) c2))) (t (or (member (car v) a2) (thlr (cadr v) al a 
2 cl (cons (car v) c2) ))))))) 

(rplaca (quote thll) (quote (lambda (vl v2 al a2 cl c2) (cond ( 
(atom vl) (or (member vl cl) (thlr v2 (cons vl al) a2 cl c2))) 
(t (or (member vl c2) (thlr v2 al (cons vl a2) cl c2 ))))))) 

(stop) 



(rplaca (quote thing) (quote (equiv (and (and (equiv pa) (or s 
(not r)J) (equiv r a)) (or (or (and (and p q) (and r s) (and 

(and (not p) (not q)J (and (not r) (not s)j)J (and (and (not p) 
(not q)) (and (not r) s)))))) 

(stop) 



